home *** CD-ROM | disk | FTP | other *** search
- 10 'MENU - DUNGEON MASTERS ASSISTANT - MAIN MENU
- 20 SCREEN 3
- 30 KEY OFF
- 40 WIDTH 20
- 50 COLOR 1,4
- 60 CLS
- 70 LOCATE 4,1
- 80 PRINT " THE"
- 90 LOCATE 7,1
- 100 PRINT " DUNGEON"
- 110 LOCATE 10,1
- 120 PRINT " MASTERS"
- 130 LOCATE 13,1
- 140 PRINT " ASSISTANT"
- 150 LOCATE 22,1
- 160 PRINT "BY BILL CHELMOWSKI"
- 170 'KILL TIME
- 180 FOR X = 1 TO 1000
- 190 NEXT X
- 200 'PRINT MENU
- 210 SCREEN 1
- 220 WIDTH 40
- 230 COLOR 4,1
- 240 CLS
- 250 LOCATE 3,1
- 260 PRINT " THE DUNGEON MASTERS ASSISTANT"
- 270 LOCATE 6,10
- 280 PRINT "1. PLAYER CHARACTERS"
- 290 LOCATE 8,10
- 300 PRINT "2. THE SUPPLY SHOPPE"
- 310 LOCATE 10,10
- 320 PRINT "3. THE QUEST"
- 330 LOCATE 12,10
- 340 PRINT "9. THE END"
- 350 'GET REPLY
- 360 DEF SEG=0: POKE 1050,PEEK(1052) 'CLEAR KEYBOARD BUFFER
- 370 LET REPLY$ = INKEY$
- 380 IF REPLY$ = "" THEN GOTO 370
- 390 IF REPLY$ = "1" THEN CHAIN "DUNCHAR"
- 400 IF REPLY$ = "2" THEN CHAIN "DUNSHOP"
- 410 IF REPLY$ = "3" THEN CHAIN "DUNQUEST"
- 420 IF REPLY$ = "9" THEN GOTO 440
- 430 GOTO 370
- 440 'END
- 450 CLS
- 460 SYSTEM
- 1000 'RETURN POINT
- 1110 GOTO 200 'PRINT MENU
-